home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / docs / hyper / MusicBase_1.75.lha / MusicBase_1.75 / InstallEnglish < prev    next >
Encoding:
Text File  |  1999-06-25  |  1.5 KB  |  74 lines
  1.  
  2. (set sdir (pathonly @icon))
  3.  
  4. (message
  5. "\n\n\n\nThis is install script for MusicBase ver.1.75\n01.07.99"
  6. )
  7.  
  8. (set ID_dest (askdir
  9.       (prompt "                    Where should MusicBase be installed?                    (drawer called MusicBase will be created)")
  10.       (help "Select a drawer where you want to install MusicBase")
  11.       (default @default-dest)
  12.    )
  13. )
  14.  
  15. (set @default-dest ID_dest)
  16. (makedir (tackon ID_dest "MusicBase"))
  17. (set ID_dest (tackon ID_dest "MusicBase"))
  18. (set @default-dest ID_dest)
  19.  
  20. (working ("Copying MusicBase"))
  21. (copyfiles
  22.    (source (tackon sdir "English") (infos))
  23.    (dest ID_dest)
  24.    (all)
  25.    (help @copyfiles-help)
  26. )
  27.  
  28. (working ("Copying readme file"))
  29. (copyfiles
  30.    (source (tackon sdir "MusicBase.readme"))
  31.    (dest ID_dest)
  32.    (help @copyfiles-help)
  33. )
  34.  
  35. (working ("Copying menu file"))
  36. (copyfiles
  37.    (source (tackon sdir "Menu.guide"))
  38.    (dest ID_dest)
  39.    (help @copyfiles-help)
  40. )
  41.  
  42. (working ("Copying author picture file"))
  43. (copyfiles
  44.    (source (tackon sdir "That'sMe!"))
  45.    (dest ID_dest)
  46.    (help @copyfiles-help)
  47. )
  48.  
  49. (makedir (tackon ID_dest "Data"))
  50. (delete ("Data.info"))
  51.  
  52. (set ID_dest (tackon ID_dest "Data"))
  53.  
  54. (working ("Copying data text files"))
  55. (copyfiles
  56.    (source (tackon sdir "Data"))
  57.    (dest ID_dest)
  58.    (all)
  59.    (help @copyfiles-help)
  60. )
  61.  
  62. (set ID_dest (tackon ID_dest "//"))
  63. (working ("Copying info file"))
  64. (copyfiles
  65.    (source (tackon sdir "Data/MusicBase.info"))
  66.    (dest ID_dest)
  67.    (help @copyfiles-help)
  68. )
  69.  
  70. (exit
  71. "\n \n \n \nHave fun with MusicBase!\nCreate with me this guide!\nSend me some music texts!"
  72. (quiet)
  73. )
  74.